home *** CD-ROM | disk | FTP | other *** search
/ STraTOS 1997 April & May / STraTOS 1 - 1997 April & May.iso / CD01 / GNU_KIT / DISK7.ZIP / lib / tmac / tmac.s < prev   
Encoding:
Text File  |  1992-07-03  |  18.0 KB  |  831 lines
  1. .\" @(*) tmac.s 1.10p5 91/2/24 rosenkra
  2. .\" **************************************************************************
  3. .\" partial -ms package for nroff. macros for simple paper/report formats
  4. .\"
  5. .\" usage:        nroff -ms file [...]
  6. .\" installed path:    c:\lib\tmac\tmac.s (TMACDIR)
  7. .\" user macros:    TL, AU, AI, AB, AE, SH, NH, PP, LP, QP, XP, RS, RE,
  8. .\"            IP, I, B, R, IR, RI, BR, RB, IB, BI, XS, XA, XE
  9. .\" extensions:        TI, EX
  10. .\" no-ops:        PX
  11. .\" debuging:        }D
  12. .\" internal macros:    }R
  13. .\" strings used:    Q, U, -, CR, LF, RF, DW, MO, Dy, Da, Yr, dY, DY, TM,
  14. .\"            DA, CT, Xx
  15. .\" registers used:    A, B, C, D, E, F, G, H, I, J, K, M, O, P, Q, R, X, Z
  16. .\" bugs:        many features not implemented.
  17. .\"            IP does not place short tags on same line.
  18. .\"            table of contents stuff (XS,XA,XE,PX) kludgy.
  19. .\" author:        rosenkra@convex.com (Bill Rosenkranz)
  20. .\" version:        for ST nroff v1.10p5
  21. .\" date:        91/2/24 
  22. .\" restrictions:    none. freely distributable (no copyright, etc.)
  23. .\" **************************************************************************
  24. .\"
  25. .\" control
  26. .\"
  27. .\" set this >0 to turn on debugging
  28. .nr Z 0
  29. .\" set M>0 for use with manpager(1), and then N>0 if SH and TL are to be bold
  30. .nr M 1
  31. .nr N 1
  32. .\" set O>1 for page offset and line width oriented toward screen viewing
  33. .nr O 1
  34. .\" 
  35. .\" **************************************************************************
  36. .\"
  37. .\" some predefined strings (Quote, Unquote, dash, footer parts, etc):
  38. .\"
  39. .if \nM=0 \{\
  40. .    ds ' "'
  41. .    ds ` "'
  42. .    ds Q ""
  43. .    ds U ""
  44. .    ds - "--
  45. \}
  46. .if \nM>0 \{\
  47. .    ds ' "'
  48. .    ds ` "`
  49. .    ds Q "!
  50. .    ds U ""
  51. .\"    ds - "-
  52. .    ds - "å
  53. \}
  54. .ds CF "ImPoSsIbLe
  55. .ds LF "\0
  56. .ds RF "\0
  57. .\"
  58. .\" these are various predefined date and time strings
  59. .\"
  60. .\" DW day-of-week:
  61. .if \n(dw=1  .ds DW "Sun
  62. .if \n(dw=2  .ds DW "Mon
  63. .if \n(dw=3  .ds DW "Tue
  64. .if \n(dw=4  .ds DW "Wed
  65. .if \n(dw=5  .ds DW "Thu
  66. .if \n(dw=6  .ds DW "Fri
  67. .if \n(dw=7  .ds DW "Sat
  68. .\" MO month:
  69. .if \n(mo=1  .ds MO "January
  70. .if \n(mo=2  .ds MO "February
  71. .if \n(mo=3  .ds MO "March
  72. .if \n(mo=4  .ds MO "April
  73. .if \n(mo=5  .ds MO "May
  74. .if \n(mo=6  .ds MO "June
  75. .if \n(mo=7  .ds MO "July
  76. .if \n(mo=8  .ds MO "August
  77. .if \n(mo=9  .ds MO "September
  78. .if \n(mo=10 .ds MO "October
  79. .if \n(mo=11 .ds MO "November
  80. .if \n(mo=12 .ds MO "December
  81. .\" make some composites:
  82. .ds Dy "\*(MO \n(dy
  83. .ds Da "\n(hh:\n(mm:\n(ss \n(mo/\n(dy/\n(yr
  84. .ds Yr "19\n(yr
  85. .ds dY "\*(Dy, \*(Yr
  86. .ds DY "\n(dy \*(MO \*(Yr
  87. .ds TM "\n(hh:\n(mm:\n(ss
  88. .ds DA "\*(TM \*(DY
  89. .ds CT "\*(DW \*(Dy \*(TM 19\n(yr
  90. .\"
  91. .\" they look like this:
  92. .\"
  93. .\"    DW    Sun
  94. .\"    MO    March
  95. .\"     Dy    March 4
  96. .\"     dY    March 4, 1990
  97. .\"     DY    4 March 1990       <--- "normal" nroff form
  98. .\"    Yr    1990
  99. .\"     TM    16:34:00
  100. .\"     DA    16:34:00 March 4, 1990
  101. .\"    Da    16:34:00 2/4/90
  102. .\"     CT    Sun March 4 16:34:00 1990    almost like ctime(2)
  103. .\"
  104. .\" **************************************************************************
  105. .\"
  106. .\" startup stuff...
  107. .\"
  108. .if \nO>0 .po 0.8i
  109. .pl 66
  110. .if \nO=0 \{\
  111. .    ll 6.0i
  112. .    lt 6.0i
  113. \}
  114. .if \nO>0 \{\
  115. .    ll 6.4i
  116. .    lt 6.4i
  117. \}
  118. .m1 3
  119. .m2 2
  120. .m3 3
  121. .m4 3
  122. .\" no header line on first page! (set back in AB, SH, NH, LP, PP, QP)
  123. .tl ||||
  124. .\" this is the default footer (date, centered) unless string CF is defined
  125. .fo ||\*(DY||
  126. .\" these are for NH numbering (up to 5 levels, a la sun, X holds level)
  127. .nr A 0 1
  128. .af A 1
  129. .nr B 0 1
  130. .af B 1
  131. .nr C 0 1
  132. .af C 1
  133. .nr D 0 1
  134. .af D 1
  135. .nr E 0 1
  136. .af E 1
  137. .nr X 1 1
  138. .nr P 0 1
  139. .nr F 0 1
  140. .nr G 0 1
  141. .nr H 0 1
  142. .nr I 0 1
  143. .nr J 0 1
  144. .nr K 0 1
  145. .\"
  146. .\" **************************************************************************
  147. .\"
  148. .\" MACROS...
  149. .\"
  150. .\" ---------------------------------------------------------------------- TL
  151. .\" title for document (optional unless abstract)
  152. .\"
  153. .de TL
  154. .sp 4
  155. .ce 1000
  156. .\" reset footer. you MUST define CF, even to blank, to get the others!
  157. .if !"\*(CF"ImPoSsIbLe" .fo |\*(LF|\*(CF|\*(RF|
  158. .if \nM>0 .if \nN>0 \&\fB
  159. .\" flag bold...
  160. .if \nM>0 .if \nN>0 .nr K 1
  161. ..
  162. .\" ---------------------------------------------------------------------- AU
  163. .\" author(s) (optional, requires .TL)
  164. .\"
  165. .de AU
  166. .if \nM>0 .if \nN>0 .if \nK>0 \&\fR
  167. .if \nK>0 .nr K 0
  168. .sp 2
  169. ..
  170. .\" ---------------------------------------------------------------------- AI
  171. .\" author's institution (optional, requires .TL)
  172. .\"
  173. .de AI
  174. .if \nM>0 .if \nN>0 .if \nK>0 \&\fR
  175. .if \nK>0 .nr K 0
  176. .sp 1
  177. ..
  178. .\" ---------------------------------------------------------------------- AB
  179. .\" abstract (optional, requires .TL, .AE)
  180. .\"
  181. .de AB
  182. .if \nM>0 .if \nN>0 .if \nK>0 \&\fR
  183. .if \nK>0 .nr K 0
  184. .br
  185. .sp 2
  186. .\" check for arg to AB. can be "no" or something like "SUMMARY". if "no",
  187. .\" no title above the abstract
  188. .if !"$1"no" .if "$1"" ABSTRACT
  189. .if !"$1"no" .if !"$1"" $1
  190. .if !"$1"no" .sp 1
  191. .\" set new line length...
  192. .ce 0
  193. .if \nO=0 \{\
  194. .    ll 5.0i
  195. .    in 0.5i
  196. \}
  197. .if \nO>0 \{\
  198. .    ll 5.4i
  199. .    in 0.5i
  200. \}
  201. .tl ||- % -||
  202. ..
  203. .\" ---------------------------------------------------------------------- AE
  204. .\" abstract end (optional, requires .TL)
  205. .\"
  206. .de AE
  207. .if \nM>0 .if \nN>0 .if \nK>0 \&\fR
  208. .if \nK>0 .nr K 0
  209. .br
  210. .sp 1
  211. .\" reset...
  212. .ce 0
  213. .in 0.0i
  214. .if \nO=0 \{\
  215. .    ll 6.0i
  216. \}
  217. .if \nO>0 \{\
  218. .    ll 6.4i
  219. \}
  220. ..
  221. .\" ----------------------------------------------------------------------- SH
  222. .\" section heading, no number (optional)
  223. .\"
  224. .de SH
  225. .{R
  226. .if \nM>0 .if \nN>0 \&\fB
  227. .\" flag bold...
  228. .if \nM>0 .if \nN>0 .nr K 1
  229. .\" section title goes here, fill mode only so far...
  230. ..
  231. .\"
  232. .\" subroutine for section head reset (SH and NH)
  233. .de {R
  234. .if \nM>0 .if \nN>0 .if \nK>0 \&\fR
  235. .if \nK>0 .nr K 0
  236. .br
  237. .\" reset...
  238. .nr P 0
  239. .nr F 0 1
  240. .nr G 0 1
  241. .nr H 0 1
  242. .nr I 0 1
  243. .nr J 0 1
  244. .if \nO=0 \{\
  245. .    ll 6.0i
  246. \}
  247. .if \nO>0 \{\
  248. .    ll 6.4i
  249. \}
  250. .in 0.0i
  251. .tl ||- % -||
  252. .\" see note in TL
  253. .if !"\*(CF"ImPoSsIbLe" .fo |\*(LF|\*(CF|\*(RF|
  254. .\" .br
  255. .ce 0
  256. .sp 2
  257. .ne 4
  258. ..
  259. .\" ---------------------------------------------------------------------- NH
  260. .\" numbered section heading. arg (required) is the section level.
  261. .\" this would be MUCH simpler if the .if command supported "{...}". there is
  262. .\" a bug in nroff. i does not set the .$ number register correctly (number of
  263. .\" args for the current macro). that is the reason why level 1 must be set.
  264. .\"
  265. .de NH
  266. .{R
  267. .\" if ".NH 0", reset numbering
  268. .if $1=0 \{\
  269. .    nr A 1 1
  270. .    nr B 0 1
  271. .    nr C 0 1
  272. .    nr D 0 1
  273. .    nr E 0 1
  274. .    nr X 1 1
  275. \}
  276. .\" level 1 (two types here: ".NH" and ".NH 1"):
  277. .\" once .$ num reg is fixed, these 5 should be:  .if \n(.$=0 .nr A +1  etc.
  278. .if "$1"" \{\
  279. .    nr A +1
  280. .    nr B 0 1
  281. .    nr C 0 1
  282. .    nr D 0 1
  283. .    nr E 0 1
  284. .    nr X 1 1
  285. \}
  286. .if "$1"1" \{\
  287. .    nr A +1
  288. .    nr B 0 1
  289. .    nr C 0 1
  290. .    nr D 0 1
  291. .    nr E 0 1
  292. .    nr X 1 1
  293. \}
  294. .\" level 2 (increment B, reset lower levels):
  295. .if "$1"2" \{\
  296. .    nr B +1
  297. .    nr C 0 1
  298. .    nr D 0 1
  299. .    nr E 0 1
  300. .    nr X 2 1
  301. \}
  302. .\" level 3 (increment C, reset lower levels):
  303. .if "$1"3" \{\
  304. .    nr C +1
  305. .    nr D 0 1
  306. .    nr E 0 1
  307. .    nr X 3 1
  308. \}
  309. .\" level 4 (increment D, reset lower levels):
  310. .if "$1"4" \{\
  311. .    nr D +1
  312. .    nr E 0 1
  313. .    nr X 4 1
  314. \}
  315. .\" level 5 (increment E, no more lower levels!):
  316. .if "$1"5" \{\
  317. .    nr E +1
  318. .    nr X 5 1
  319. \}
  320. .\" print out the section number now, depending on current level...
  321. .if \nM>0 \{
  322. .    if \nN>0 .if \nX=1 \&\fB\nA.
  323. .    if \nN>0 .if \nX=2 \&\fB\nA.\nB.
  324. .    if \nN>0 .if \nX=3 \&\fB\nA.\nB.\nC.
  325. .    if \nN>0 .if \nX=4 \&\fB\nA.\nB.\nC.\nD.
  326. .    if \nN>0 .if \nX=5 \&\fB\nA.\nB.\nC.\nD.\nE.
  327. .\"    flag bold...
  328. .    if \nN>0 .nr K 1
  329. \}
  330. .if \nM=0 \{
  331. .    if \nX=1 \&\nA.
  332. .    if \nX=2 \&\nA.\nB.
  333. .    if \nX=3 \&\nA.\nB.\nC.
  334. .    if \nX=4 \&\nA.\nB.\nC.\nD.
  335. .    if \nX=5 \&\nA.\nB.\nC.\nD.\nE.
  336. \}
  337. .\" section title goes here...
  338. ..
  339. .\" ----------------------------------------------------------------------- LP
  340. .\" start a new left block paragraph (either .LP or .PP required)
  341. .\"
  342. .de LP
  343. .if \nM>0 .if \nN>0 .if \nK>0 \&\fR
  344. .if \nK>0 .nr K 0
  345. .br
  346. .\" reset...
  347. .nr P 0
  348. .nr F 0 1
  349. .nr G 0 1
  350. .nr H 0 1
  351. .nr I 0 1
  352. .nr J 0 1
  353. .tl ||- % -||
  354. .ce 0
  355. .sp 1
  356. .if \nO=0 \{\
  357. .    ll 6.0i
  358. \}
  359. .if \nO>0 \{\
  360. .    ll 6.4i
  361. \}
  362. .in 0.0i
  363. ..
  364. .\" ----------------------------------------------------------------------- PP
  365. .\" start a new indented paragraph (either .LP or .PP required)
  366. .\"
  367. .de PP
  368. .\" do everything for LP, then make a temp indent...
  369. .LP
  370. .ti +0.5i
  371. ..
  372. .\" ----------------------------------------------------------------------- XP
  373. .\" start a new extended paragraph (bibliography)
  374. .\"
  375. .de XP
  376. .if \nM>0 .if \nN>0 .if \nK>0 \&\fR
  377. .if \nK>0 .nr K 0
  378. .br
  379. .\" reset...
  380. .nr P 0
  381. .nr F 0 1
  382. .nr G 0 1
  383. .nr H 0 1
  384. .nr I 0 1
  385. .nr J 0 1
  386. .tl ||- % -||
  387. .ce 0
  388. .sp 1
  389. .if \nO=0 \{\
  390. .    ll 6.0i
  391. \}
  392. .if \nO>0 \{\
  393. .    ll 6.4i
  394. \}
  395. .in 0.5i
  396. .ti -0.5i
  397. ..
  398. .\" ----------------------------------------------------------------------- QP
  399. .\" start a new quoted paragraph (indented and shorter)
  400. .\"
  401. .de QP
  402. .if \nM>0 .if \nN>0 .if \nK>0 \&\fR
  403. .if \nK>0 .nr K 0
  404. .br
  405. .nr P 0
  406. .nr F 0 1
  407. .nr G 0 1
  408. .nr H 0 1
  409. .nr I 0 1
  410. .nr J 0 1
  411. .tl ||- % -||
  412. .ce 0
  413. .sp 1
  414. .\" set new line length, indent. PP, LP, SH, and NH reset
  415. .if \nO=0 \{\
  416. .    ll 6.0i
  417. \}
  418. .if \nO>0 \{\
  419. .    ll 6.4i
  420. \}
  421. .in 0.0i
  422. .ll -0.5i
  423. .in +0.5i
  424. ..
  425. .\" ----------------------------------------------------------------------- IP
  426. .\" indented paragraph with tag (relative)
  427. .\"
  428. .de IP
  429. .if \nM>0 .if \nN>0 .if \nK>0 \&\fR
  430. .if \nK>0 .nr K 0
  431. .br
  432. .tl ||- % -||
  433. .ce 0
  434. .\" .sp 1
  435. .if \nR>0 .in 0
  436. .if \nR=1 .in +\nF
  437. .if \nR=2 \{\
  438. .    in +\nG
  439. .    in +\nF
  440. \}
  441. .if \nR=3 \{\
  442. .    in +\nH
  443. .    in +\nG
  444. .    in +\nF
  445. \}
  446. .if \nR=4 \{\
  447. .    in +\nI
  448. .    in +\nH
  449. .    in +\nG
  450. .    in +\nF
  451. \}
  452. .if \nR=5 \{\
  453. .    in +\nJ
  454. .    in +\nI
  455. .    in +\nH
  456. .    in +\nG
  457. .    in +\nF
  458. \}
  459. .if \nR=0 .if \nP>0 .in -\nP
  460. .if !"$2"" .nr Q $2
  461. .if "$2""  .nr Q 5
  462. .in +\nQ
  463. .nr P \nQ
  464. .if \nR=1 .nr P +\nF
  465. .if \nR=2 \{\
  466. .    nr P +\nG
  467. .    nr P +\nF
  468. \}
  469. .if \nR=3 \{\
  470. .    nr P +\nH
  471. .    nr P +\nG
  472. .    nr P +\nF
  473. \}
  474. .if \nR=4 \{\
  475. .    nr P +\nI
  476. .    nr P +\nH
  477. .    nr P +\nG
  478. .    nr P +\nF
  479. \}
  480. .if \nR=5 \{\
  481. .    nr P +\nJ
  482. .    nr P +\nI
  483. .    nr P +\nH
  484. .    nr P +\nG
  485. .nr P +\nF
  486. \}
  487. .}D "***DEBUG IP: indent before tag is: \n(.i"
  488. .}D .br
  489. .if !"$1"" \{\
  490. .    ti -\nQ
  491. \&$1
  492. .    br
  493. \}
  494. .}D "***DEBUG IP: indent after tag is: \n(.i"
  495. ..
  496. .\" ----------------------------------------------------------------------- RS
  497. .\" start relative indent (requires .RE)
  498. .\"
  499. .de RS
  500. .if \nM>0 .if \nN>0 .if \nK>0 \&\fR
  501. .if \nK>0 .nr K 0
  502. .br
  503. .ce 0
  504. .\" if there is arg, use that as indent, otherwise use +5
  505. .if !"$1"" .nr Q $1
  506. .if "$1""  .nr Q 5
  507. .in +\nQ
  508. .\" indent level (up to 5)
  509. .if \n+R=1 .nr F \nQ
  510. .if \nR=2  .nr G \nQ
  511. .if \nR=3  .nr H \nQ
  512. .if \nR=4  .nr I \nQ
  513. .if \nR=5  .nr J \nQ
  514. .}D "***DEBUG RS: indent after RS is: \n(.i"
  515. .}D "***DEBUG RS: level (R) is: \nR"
  516. .}D "***DEBUG RS: F = \nF"
  517. .}D "***DEBUG RS: G = \nG"
  518. .}D "***DEBUG RS: H = \nH"
  519. .}D "***DEBUG RS: I = \nI"
  520. .}D "***DEBUG RS: J = \nJ"
  521. .}D .br
  522. ..
  523. .\" ----------------------------------------------------------------------- RE
  524. .\" end relative indent
  525. .\"
  526. .de RE
  527. .if \nM>0 .if \nN>0 .if \nK>0 \&\fR
  528. .if \nK>0 .nr K 0
  529. .br
  530. .ce 0
  531. .if \nR=1 .in -\nF
  532. .if \nR=2 .in -\nG
  533. .if \nR=3 .in -\nH
  534. .if \nR=4 .in -\nI
  535. .if \nR=5 .in -\nJ
  536. .\"
  537. .if \nR=1 .nr F 0 1
  538. .if \nR=2 .nr G 0 1
  539. .if \nR=3 .nr H 0 1
  540. .if \nR=4 .nr I 0 1
  541. .if \nR=5 .nr J 0 1
  542. .if \n-R<0 .nr R 0 1
  543. .}D "***DEBUG RE: indent after RE is: \n(.i"
  544. .}D "***DEBUG RE: level (R) is: \nR"
  545. .}D "***DEBUG RE: F = \nF"
  546. .}D "***DEBUG RE: G = \nG"
  547. .}D "***DEBUG RE: H = \nH"
  548. .}D "***DEBUG RE: I = \nI"
  549. .}D "***DEBUG RE: J = \nJ"
  550. .}D .br
  551. ..
  552. .\" ----------------------------------------------------------------------- XS
  553. .\" table of contents start
  554. .\"
  555. .de XS
  556. .if \nM>0 .if \nN>0 .if \nK>0 \&\fR
  557. .if \nK>0 .nr K 0
  558. .br
  559. .bp
  560. .ce 1
  561. .if \nM>0 \&\fBTable of Contents\fR
  562. .if \nM=0 \&Table of Contents
  563. .ce 0
  564. .ll 8.0i
  565. .sp 1
  566. .\" \&123456789012345678901234567890123456789012345678901234567890
  567. \&NOTE: add/del "dots" until line ends here ---------------->| (del this line)
  568. .br
  569. .\" save the page number...
  570. .ds Xx "$1
  571. .\" first entry goes here...
  572. ..
  573. .\" ----------------------------------------------------------------------- XE
  574. .\" table of contents end
  575. .\"
  576. .de XE
  577. .\" dump last page number...
  578. \&\0........................... \*(Xx
  579. .if \nM>0 .if \nN>0 .if \nK>0 \&\fR
  580. .if \nK>0 .nr K 0
  581. .br
  582. ..
  583. .\" ----------------------------------------------------------------------- XA
  584. .\" subsequent table of contents entry
  585. .\"
  586. .de XA
  587. .\" dump last page number...
  588. \&\0........................... \*(Xx
  589. .if \nM>0 .if \nN>0 .if \nK>0 \&\fR
  590. .if \nK>0 .nr K 0
  591. .br
  592. .\" save next page number...
  593. .ds Xx "$1
  594. .\" next entry goes here...
  595. ..
  596. .\" ----------------------------------------------------------------------- PX
  597. .\" print table of contents
  598. .\"
  599. .de PX
  600. .\" this is a NOP without diversions...
  601. .if \nO=0 \{\
  602. .    ll 6.0i
  603. \}
  604. .if \nO>0 \{\
  605. .    ll 6.4i
  606. \}
  607. ..
  608. .\" ----------------------------------------------------------------------- TI
  609. .\" temporary indent
  610. .\"
  611. .de TI
  612. .if \nM>0 .if \nN>0 .if \nK>0 \&\fR
  613. .if \nK>0 .nr K 0
  614. .br
  615. .ce 0
  616. .ti +0.5i
  617. ..
  618. .\" ----------------------------------------------------------------------- EX
  619. .\" exit NOW! (no extra space at end of document)
  620. .\"
  621. .de EX
  622. .sp
  623. .ex
  624. ..
  625. .\" ----------------------------------------------------------------------- UL
  626. .\" underline text
  627. .\"
  628. .de UL
  629. .if \nM>0 \{\
  630. .    if \n(.$>0 \&\fI$1\fR
  631. .\"    flag font...
  632. .    if \n(.$=0 .nr K 1
  633. \}
  634. .\".if \nM=0 .if \n(.$>0 \&$1
  635. .if \nM=0 \{\
  636. .    if \n(.$=1 \&$1
  637. .    if \n(.$=2 \&$1$2
  638. .    if \n(.$=3 \&$1$2$3
  639. .    if \n(.$=4 \&$1$2$3$4
  640. .    if \n(.$=5 \&$1$2$3$4$5
  641. .    if \n(.$=6 \&$1$2$3$4$5$6
  642. \}
  643. ..
  644. .\" ----------------------------------------------------------------------- I
  645. .\" italic text
  646. .\"
  647. .de I
  648. .if \nM>0 \{\
  649. .    if \n(.$=0 \&\fI\&
  650. .\"    flag font...
  651. .    if \n(.$=0 .nr K 1
  652. .\"
  653. .\".    if \n(.$>0 \&\fI$1\fR
  654. .    if \n(.$=1 \&\fI$1\fR
  655. .    if \n(.$=2 \&\fI$1$2\fR
  656. .    if \n(.$=3 \&\fI$1$2$3\fR
  657. .    if \n(.$=4 \&\fI$1$2$3$4\fR
  658. .    if \n(.$=5 \&\fI$1$2$3$4$5\fR
  659. .    if \n(.$=6 \&\fI$1$2$3$4$5$6\fR
  660. \}
  661. .\".if \nM=0 .if \n(.$>0 \&$1
  662. .if \nM=0 \{\
  663. .    if \n(.$=1 \&$1
  664. .    if \n(.$=2 \&$1$2
  665. .    if \n(.$=3 \&$1$2$3
  666. .    if \n(.$=4 \&$1$2$3$4
  667. .    if \n(.$=5 \&$1$2$3$4$5
  668. .    if \n(.$=6 \&$1$2$3$4$5$6
  669. \}
  670. ..
  671. .\" ----------------------------------------------------------------------- B
  672. .\" bold text
  673. .\"
  674. .de B
  675. .if \nM>0 \{\
  676. .    if \n(.$=0 \&\fB\&
  677. .\"    flag bold...
  678. .    if \n(.$=0 .nr K 1
  679. .\"
  680. .\".    if \n(.$>0 \&\fB$1\fR
  681. .    if \n(.$=1 \&\fB$1\fR
  682. .    if \n(.$=2 \&\fB$1$2\fR
  683. .    if \n(.$=3 \&\fB$1$2$3\fR
  684. .    if \n(.$=4 \&\fB$1$2$3$4\fR
  685. .    if \n(.$=5 \&\fB$1$2$3$4$5\fR
  686. .    if \n(.$=6 \&\fB$1$2$3$4$5$6\fR
  687. \}
  688. .\".if \nM=0 .if \n(.$>0 \&$1
  689. .if \nM=0 \{\
  690. .    if \n(.$=1 \&$1
  691. .    if \n(.$=2 \&$1$2
  692. .    if \n(.$=3 \&$1$2$3
  693. .    if \n(.$=4 \&$1$2$3$4
  694. .    if \n(.$=5 \&$1$2$3$4$5
  695. .    if \n(.$=6 \&$1$2$3$4$5$6
  696. \}
  697. ..
  698. .\" ----------------------------------------------------------------------- R
  699. .\" Roman (normal) text
  700. .\"
  701. .de R
  702. .\".if \nM>0 \&\fR\&
  703. .if \nM>0 \{\
  704. .    if \n(.$=0 \&\fR\&
  705. .\"    unflag bold...
  706. .    if \n(.$=0 .nr K 0
  707. .\"
  708. .    if \n(.$=1 \&\fR$1
  709. .    if \n(.$=2 \&\fR$1$2
  710. .    if \n(.$=3 \&\fR$1$2$3
  711. .    if \n(.$=4 \&\fR$1$2$3$4
  712. .    if \n(.$=5 \&\fR$1$2$3$4$5
  713. .    if \n(.$=6 \&\fR$1$2$3$4$5$6
  714. \}
  715. .if \nM=0 \{\
  716. .    if \n(.$=1 \&$1
  717. .    if \n(.$=2 \&$1$2
  718. .    if \n(.$=3 \&$1$2$3
  719. .    if \n(.$=4 \&$1$2$3$4
  720. .    if \n(.$=5 \&$1$2$3$4$5
  721. .    if \n(.$=6 \&$1$2$3$4$5$6
  722. \}
  723. ..
  724. .\" ----------------------------------------------------------------------- IR
  725. .\" alternate italic and Roman text (must handle at least 6 args)
  726. .\"
  727. .de IR
  728. .if \nM>0 \{\
  729. .    if \n(.$=1 \&\fI$1\fR
  730. .    if \n(.$=2 \&\fI$1\fR$2
  731. .    if \n(.$=3 \&\fI$1\fR$2\fI$3\fR
  732. .    if \n(.$=4 \&\fI$1\fR$2\fI$3\fR$4
  733. .    if \n(.$=5 \&\fI$1\fR$2\fI$3\fR$4\fI$5\fR
  734. .    if \n(.$=6 \&\fI$1\fR$2\fI$3\fR$4\fI$5\fR$6
  735. \}
  736. .if \nM=0 \&$1$2$3$4$5$6
  737. ..
  738. .\" ----------------------------------------------------------------------- RI
  739. .\" alternate Roman and italic text (must handle at least 6 args)
  740. .\"
  741. .de RI
  742. .if \nM>0 \{\
  743. .    if \n(.$=1 \&\fR$1
  744. .    if \n(.$=2 \&\fR$1\fI$2\fR
  745. .    if \n(.$=3 \&\fR$1\fI$2\fR$3
  746. .    if \n(.$=4 \&\fR$1\fI$2\fR$3\fI$4\fR
  747. .    if \n(.$=5 \&\fR$1\fI$2\fR$3\fI$4\fR$5
  748. .    if \n(.$=6 \&\fR$1\fI$2\fR$3\fI$4\fR$5\fI$6\fR
  749. \}
  750. .if \nM=0 \&$1$2$3$4$5$6
  751. ..
  752. .\" ----------------------------------------------------------------------- BR
  753. .\" alternate bold and Roman text (must handle at least 6 args)
  754. .\"
  755. .de BR
  756. .if \nM>0 \{\
  757. .    if \n(.$=1 \&\fB$1\fR
  758. .    if \n(.$=2 \&\fB$1\fR$2
  759. .    if \n(.$=3 \&\fB$1\fR$2\fB$3\fR
  760. .    if \n(.$=4 \&\fB$1\fR$2\fB$3\fR$4
  761. .    if \n(.$=5 \&\fB$1\fR$2\fB$3\fR$4\fB$5\fR
  762. .    if \n(.$=6 \&\fB$1\fR$2\fB$3\fR$4\fB$5\fR$6
  763. \}
  764. .if \nM=0 \&$1$2$3$4$5$6
  765. ..
  766. .\" ----------------------------------------------------------------------- RB
  767. .\" alternate Roman and bold text (must handle at least 6 args)
  768. .\"
  769. .de RB
  770. .if \nM>0 \{\
  771. .    if \n(.$=1 \&\fR$1
  772. .    if \n(.$=2 \&\fR$1\fB$2\fR
  773. .    if \n(.$=3 \&\fR$1\fB$2\fR$3
  774. .    if \n(.$=4 \&\fR$1\fB$2\fR$3\fB$4\fR
  775. .    if \n(.$=5 \&\fR$1\fB$2\fR$3\fB$4\fR$5
  776. .    if \n(.$=6 \&\fR$1\fB$2\fR$3\fB$4\fR$5\fB$6\fR
  777. \}
  778. .if \nM=0 \&$1$2$3$4$5$6
  779. ..
  780. .\" ----------------------------------------------------------------------- BI
  781. .\" alternate bold and italic text (must handle at least 6 args)
  782. .\"
  783. .de BI
  784. .if \nM>0 \{\
  785. .    if \n(.$=1 \&\fB$1\fR
  786. .    if \n(.$=2 \&\fB$1\fI$2\fR
  787. .    if \n(.$=3 \&\fB$1\fI$2\fB$3\fR
  788. .    if \n(.$=4 \&\fB$1\fI$2\fB$3\fI$4\fR
  789. .    if \n(.$=5 \&\fB$1\fI$2\fB$3\fI$4\fB$5\fR
  790. .    if \n(.$=6 \&\fB$1\fI$2\fB$3\fI$4\fB$5\fI$6\fR
  791. \}
  792. .if \nM=0 \&$1$2$3$4$5$6
  793. ..
  794. .\" ----------------------------------------------------------------------- IB
  795. .\" alternate italic and bold text (must handle at least 6 args)
  796. .\"
  797. .de IB
  798. .if \nM>0 \{\
  799. .    if \n(.$=1 \&\fI$1\fR
  800. .    if \n(.$=2 \&\fI$1\fB$2\fR
  801. .    if \n(.$=3 \&\fI$1\fB$2\fI$3\fR
  802. .    if \n(.$=4 \&\fI$1\fB$2\fI$3\fB$4\fR
  803. .    if \n(.$=5 \&\fI$1\fB$2\fI$3\fB$4\fI$5\fR
  804. .    if \n(.$=6 \&\fI$1\fB$2\fI$3\fB$4\fI$5\fB$6\fR
  805. \}
  806. .if \nM=0 \&$1$2$3$4$5$6
  807. ..
  808. .\" ----------------------------------------------------------------------- }D
  809. .\" debug. use (e.g. print current indent):
  810. .\"
  811. .\"    .}D .br
  812. .\"    .}D "** DEBUG ** before RS \n(.i"
  813. .\"
  814. .de }D
  815. .if \nZ>0 \&$1
  816. ..
  817. .\"
  818. .\"
  819. .\" print macros first if debugging...
  820. .if \nZ>0 \{\
  821. .    sp 2
  822. Macros Defined:
  823. .    sp 2
  824. .    pm T
  825. .    sp 2
  826. End Macro Definitions.
  827. .    sp 4
  828. \}
  829. .\"
  830. .\" end of tmac.s
  831.